Private Sub Form_Timer()
On Error GoTo Err_Timer

DoCmd.GoToRecord , , acNext '1
DoCmd.GoToRecord , , acNext '2
DoCmd.GoToRecord , , acNext '3
DoCmd.GoToRecord , , acNext '4
DoCmd.GoToRecord , , acNext '5
DoCmd.GoToRecord , , acNext '6
DoCmd.GoToRecord , , acNext '7
DoCmd.GoToRecord , , acNext '8
DoCmd.GoToRecord , , acNext '9
DoCmd.GoToRecord , , acNext '10
DoCmd.GoToRecord , , acNext '11
DoCmd.GoToRecord , , acNext '12
DoCmd.GoToRecord , , acNext '13
DoCmd.GoToRecord , , acNext '14
DoCmd.GoToRecord , , acNext '15
DoCmd.GoToRecord , , acNext '16
DoCmd.GoToRecord , , acPrevious '1
DoCmd.GoToRecord , , acPrevious '2
DoCmd.GoToRecord , , acPrevious '3
DoCmd.GoToRecord , , acPrevious '4
DoCmd.GoToRecord , , acPrevious '5
DoCmd.GoToRecord , , acPrevious '6
DoCmd.GoToRecord , , acPrevious '7
DoCmd.GoToRecord , , acPrevious '8
DoCmd.GoToRecord , , acPrevious '9
DoCmd.GoToRecord , , acPrevious '10
DoCmd.GoToRecord , , acPrevious '11
DoCmd.GoToRecord , , acPrevious '12
DoCmd.GoToRecord , , acPrevious '13
DoCmd.GoToRecord , , acPrevious '14
DoCmd.GoToRecord , , acPrevious '15
Exit_Timer:
    Exit Sub

Err_Timer:
    DoCmd.GoToRecord , , acFirst
    'Resume Exit_Timer

End Sub

